home *** CD-ROM | disk | FTP | other *** search
/ The Epic Collection 3 / Epic Collection 3, The (1997)(Epic Marketing)[!].iso / applications / amigabase / arexx / import.rexx < prev    next >
OS/2 REXX Batch file  |  1996-09-08  |  1KB  |  53 lines
  1. /* Program to import person details from a file and put them in an AB
  2.  * project. */
  3.  
  4. /* Make sure AB is running. */
  5. if ~show(PORTS, 'AB_AREXX') then do
  6.     say 'AB is not currently running!  Please start it and try again.'
  7.     exit
  8.     end
  9.  
  10. address 'AB_AREXX'
  11.  
  12. options results
  13.  
  14. /* Ask for and get the filename. */
  15. say 'Enter filename ?'
  16. parse pull FILENAME$
  17.  
  18. /* Open the file. */
  19. call Open(FILEHANDLE, FILENAME$)
  20.  
  21. /* Initalize some variables. */
  22. NUMBER_ADDED=0
  23. ERROR=0
  24.  
  25. do while ERROR=0
  26.     /* Get the name field from the file. */
  27.     TEXT_LINE$=Readln(FILEHANDLE)
  28.     /* Check it for a blank line.  If this happens then the field line is
  29.      * either empty, or we have reached the end of the file. */
  30.     if TEXT_LINE$='' then
  31.         ERROR=1
  32.     else do
  33.         /* Otherwise make a new entry with this name. */
  34.         NUMBER_ADDED=NUMBER_ADDED+1
  35.         'NEW_ENTRY 'TEXT_LINE$
  36.  
  37.         /* For each of the other fields, read in the line from the file.  If it
  38.          * empty then make the field in the AB project empty, or simply copy
  39.          * the text across to the desired field. */
  40.         do FIELD_NO=2 to 9 by 1 & ERROR=0
  41.             TEXT_LINE$=Readln(FILEHANDLE)
  42.             if TEXT_LINE$='' then
  43.                 'PUT_ENTRY_DETAILS 'FIELD_NO' Field empty'
  44.             else do
  45.                 'PUT_ENTRY_DETAILS 'FIELD_NO TEXT_LINE$
  46.                 end
  47.             end
  48.         end
  49.     end
  50.  
  51. say 'Added 'NUMBER_ADDED' entries.'
  52. exit
  53.